home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / lib / mathlib / libconv / TRY / simple_dfir1d.f < prev    next >
Encoding:
Text File  |  1994-08-02  |  284 b   |  19 lines
  1.     subroutine simple_dfir1d( nf, ng, f, g, h)
  2.     double precision f(0:(nf-1)), g(0:(ng-1)), h(0:(nf+ng-2))
  3.     integer nf, ng
  4.  
  5.     integer i, j, k
  6.  
  7.     do k = 0, nf+ng-2
  8.         h(k) = 0.0
  9.     end do
  10.  
  11.     do j = 0, ng-1
  12.         do i = 0, nf-1
  13.         h(i+j) = h(i+j) + f(i) * g(j)
  14.         end do
  15.     end do
  16.  
  17.     return
  18.     end
  19.